home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / MINICAL.BAS (.txt) < prev    next >
QuickBASIC Tokenized Source  |  1990-11-19  |  3KB  |  67 lines
  1. nextparameter
  2. process
  3. stack
  4. displaystack
  5. subtract
  6. MULTIPLY
  7. divide
  8. SQUAREROOT
  9.  ** NAME :
  10.  MINICAL
  11. 1 ** 
  12.  ** TYPE :
  13.  PROGRAM
  14. 1 ** 
  15.  ** MODULE :   MINICAL.BAS
  16. - ** 
  17.  ** LANGUAGE:  QUICKBASIC 4.5
  18. FUNCTIONS*
  19. SUBPROGRAMS
  20. get the command line
  21.  create a pseudo stack
  22. process each part of the command line*
  23. Not enough stack values"
  24. Display resultsv
  25. all done
  26. nextparameter
  27. ** NAME :
  28.  NEXTPARAMETER$
  29. * ** 
  30. ** TYPE :
  31.  finction
  32. 0 ** 
  33. ** Module:
  34.  Minical.bas
  35. - ** 
  36. ** Language:   Quickbasic 4.5
  37. Extracts parameters form the front of the command line. Parameters are *
  38. groups of any characters separated by spaces.m
  39. process
  40. ** NAME :
  41.  PROCESS
  42. ** TYPE :
  43.  SUBPROGRAM
  44. . ** 
  45. ** Module:
  46.  Minical.bas
  47. - ** 
  48. ** Language:   Quickbasic 4.5
  49. PROCESSES each command parameter for the MINICAL program. 
  50. SQR";
  51.  CASE ELSE
  52. displaystack
  53. ** NAME :
  54.  displaystack
  55. , ** 
  56. ** TYPE :
  57.  subprogram
  58. . ** 
  59. ** Module:
  60.  Minical.bas
  61. - ** 
  62. ** Language:   Quickbasic 4.5
  63. Displays anything left on the stack when MINICAL finishes processing
  64. the command line.r
  65. stack...."
  66. results...
  67.